home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok39 / oberon-forum / oca-demo / screenhack.asm < prev    next >
Assembly Source File  |  1993-11-04  |  1KB  |  41 lines
  1. ; Ein kleiner Screenhack von der Disk MACRO-PD-SOFT # 9
  2. ; plus flackern der Power-LED a la GURU!
  3.  
  4.         XDEF    Start
  5.  
  6. count   EQU     10              ; jedes 10. Bildschirmflackern
  7.                                 ; LED 1x an oder aus (sonst zu hektisch!)
  8.  
  9. Start:  MOVE.L  #count,zahl     ; Zähler setzen
  10.         CLR.L   D4              ; D4 ist der An/Aus-Switch für LED
  11.         MOVEQ   #01,D4          ; D4 = 1 => LED aus
  12. Start2  MOVE.L    #1,$00DFF02C    ; Vert. Rasterstrahlpos. high bit
  13.     JSR    flimmer         ; Go Bildschirmflackern
  14.     BTST    #6,$00BFE001    ; CIAA, LMB pressed?
  15.     BNE    Start2
  16.     BCLR    #1,$BFE001      ; LED wieder an und exit
  17.     RTS
  18.  
  19. flimmer    MOVE.L    #$00004E20,D0   ; Geschw. d. Bildschirmflackerns
  20. wait    NOP                     ; warten
  21.     DBRA    D0,wait
  22.     SUB.L   #1,zahl         ; Zähler um 1 verringern
  23.     BEQ     led             ; = 0 => LED flackern
  24.     RTS
  25.  
  26. led     MOVE.L  #count,zahl     ; Zähler neu laden
  27.         CMPI.B  #0,D4           ; D4 = 1 => LED aus
  28.         BNE     led2            ; D4 = 0 => LED an
  29.         MOVEQ   #1,D4           ; D4 := 1 => nächstes mal LED aus
  30.         BCLR    #1,$BFE001      ; LED an
  31.         RTS
  32.  
  33. led2    BSET    #1,$BFE001      ; LED aus
  34.     MOVEQ   #0,D4           ; D4 := 0 => nächstes mal LED an
  35.         RTS
  36.  
  37. zahl    DC.L    0
  38.  
  39.     CNOP    2,0
  40.  
  41.